﻿Imports Microsoft.VisualBasic

Namespace My
    Public Class MyCheckBox
        Inherits CheckBox

        Public Property MyChecked() As String
            Get
                Return IIf(Me.Checked = True, "Y", "N")
            End Get
            Set(ByVal value As String)
                Me.Checked = IIf(value = "Y", True, False)
            End Set
        End Property
    End Class
End Namespace
